home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
kang
/
the road to mezmer
< prev
next >
Wrap
Text File
|
1999-06-15
|
853b
|
33 lines
Category: kang -
Title: the road to Mezmer
Copyright: na
Author: kangaoo@asan.com
Filename: mezmer.8bf
R:put(r2x(sin(d-val(0,1,40)*m)-val(4,-1000,800),tan(m+val(3,1,8)*d))-val(6,-1200,1200),1),put(dif(sin(d+val(2,1,80)*m)-val(4,-1000,800),tan(m+val(1,0,6)*d))-val(7,-200,200),2),put(dif(get(1),get(2)),3),get(6)+c2d(get(3)-val(5,600,-200),get(3))+c
G:put(dif(get(3),get(1)),4),put(c2d(get(1),get(2)),5),put(r2y(get(4)-val(6,-100,470),-get(5)-val(5,-15,-350))-val(3,get(4),get(1)),6),get(6)+c2d(get(3)-val(5,600,-200),get(3))+c
B:get(6)+c2d(get(3)-val(5,600,-200),get(3))+c
A:a
ctl[0]: mystery 1
ctl[1]: mystery 2
ctl[2]: mystery 3
ctl[3]: mystery 4
ctl[4]: mystery 5
ctl[5]: mystery 6
ctl[6]: mystery 7
ctl[7]: mystery 8
val[0]: 128
val[1]: 0
val[2]: 110
val[3]: 161
val[4]: 187
val[5]: 124
val[6]: 214
val[7]: 24